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2. 


Presented her* Is part of the rtradnata work that I am 
doing In the much broader area of urotaeol analysts (see 
A-1 1 memo 157 )* The £oal of functional abstraction Is to 

find a procedure that satisfies a glv#i> set of f ragmentary 
protocnls*0 Thus Functional abstraction Is the inverse! 
operation to taking a set of protocols of a routine. The 
baste technique In functional abstraction (which we shall 
ea 11 I MAGE:) Is to find a minimal homomorphic Image of the 
set of Fragmentary protocols* It Is Interesting to note 
that the technique of find I nit a minimal homomorphic I macs is 
the same one used to compute the schematized .goal tree In 
A* I* memo 137 * We define (e < fo) to mean that a Is erased 
and b Is written In Its place, he shall use <a ; h) to mean 
that the value oF b Is a. Consider the folowlng protocol 
for a Function f: 

arF'unents of f * (3) 

((} < 1> 

(O : (pred 3)i 
U < <3 : (fen 5 1))) 

(3 < £2 ; (fen 3))) 

(() r l pred 2)) 

(3 < £G i (fCfl 2 3>>) 

C2 < {1 (fen 2)1 


L 


CO < (prerf 1 >) 

fG < fG : (fen i 6>>) 

(1 < CO : {fen 13)) 

(T t (pred D)J 
value o# f * 6 

If IMAGF knows shout the functions jerop, times, and 5ubl 

then It will find the following minimal homomorphic Image 
for the above protocol: 

{defnrop f 

(lambda Carj-l) (pro* (tempi) 
fsetq tempi 13 

1 al>e1 l (eond ((zerop argl) (return tempi) 3) 

(setd tempi {times arnl tempi)) 

(sate ar*l (suhl ar*l)> 
f^o label I ))) expr> 

The next example makes use of MATCHLESS (see A* I , *, 0 mo 

137), Me use dashes to mark the ends of a fragment of a 
Hst* The J»toms *vars «var^ and Svar* have the effect 

that they put the pattern variable which follows them In the 
var mode* 

arguments of f - ((-> -)) 
fT : (prod (- “> () }) 
value of f m t 


arguments of f =■ ((-w a -)) 


(O ! (prad f-a-) {) )> 

(f CT it f) < {-a- < - ,,j j j 

CT : {preri a a)) 

<T : (pred {- -} f) )> 

value of f n O 

ar^unwintg of f - (<-h-n 

< o : fprsd (-b-) on 

( Ob~> - ffen ££ t> < b) C -b- < - ) {- b _> jj 

U> * (pred b a)3 
C T : fprad {- -) O}) 

valufr of f ■ () 

arguments of f * {(-a b-}) 
fO t Cpre-d (-a b*-) £) )) 

C(^a b-) i ffen f£ O < a) £*a b- < -b-)) f.;i h-> )) 
(T ; (pred a a )} 

CO: (prad f-b-> o n 

f Ob-> i (fen ( (a < b> ( -b- < - »)) {-h-> )j 
t O < (pred b a)> 

C T : (p red { - -) (} n 
value of f n 

In this case IMAGE jefves 
(defprop f 

Cmlamhda C + ar^l) (prop; ("tempi? 

labell CcPnd C £*$&Trn? (*ar*U {>> (return T))) 

(assign (("var* =tenpl) (*var+ Oer^m 


(conrf C (assign? "tempi fi) (go label Z )) 5 
labels Econd ((assign? (*aral) E) 3 (return ( ))) 

EassTgn (E*var» ^tempIS (*var* +arg!3l ("argil 13 
Econri ((assign? “tempi aJ Ego labell?)) 

(go labe1I3>) fexprJ 

In the above mlambda causes (*argl) to be assigned to the 
list of arguments of f, The generalized assignment 
statements of MATCHLESS are "assign' 1 and "assign? 1 '. 

For some purposes In functional abstraction, minimal 
homomorphic Fmages are not Meal represent at I vss of 
functions. The predicate sequence of an element of a 
protocol Is defined to be the Sequence of values taken on by 
the predicates of the protocol from the beginning of the 
protocol to the element. If h Isa hnmomorphlsm than we say 
that h Is a branch preserving homomorphism If h(a3 ® h(b) 
implies that the predicate Sequence of a Is an Initial 
segment of the predicate sequence of b or vice-versa, We 
shall call a minimal branch preserving homomorah 1 a Image a 
blmage, For example a blmege for the above protocol Is 

(defprop f 

Cmlambda E*argl) Cprog ("tempi) 

labell (eond ((assign? (*argl) (}> Cretufn T3H 

Easslgn (E»var» *templ) (±var* +argl)> (*argl>> 

Econd ((assign? “tempi a) (go 1abel3))> 
labels (cond EEasalgn? (*argi) (3) (return {))) 


(assign ((-vsr* -temp?} (*var* 1>) (*aral)) 

icand ((assign? -tempi 1 a) (go label!)}) 

(go 1abeTl) 

Ia1>el3 (cond ((assign? E*argl) M) (return 0)3) 

Ussl^n ((*var" -tempi) (*y a r* *argl>) (*argl)3 
(eond ((assign? -tempi a) (go lahell)}} 

(go label!>)) fexpr) 

Bfmages have certain advantages and disadvantages compared 
to Images, As Illustrated above Images are almost always 
smaller* On the other hand bln-ages take less time to 

compute and are easier to modify In ease of error. To 
correct a b)mage It Is necessary only to break some of the 
feed back loops and Insert more erode* 

One of the most Important applications of functional 
abstraction Is for the problem of making the robot do some 
task after It has seen several examples of how the task Is 
dona. Suppose that wa want the robot to take all the blocks 
out of a box and stack them In a tower at the place P. w e 
place three cubes In the box and then take them out one by 
one as the robot watches and stack them at P* After 
observing the example we would like for the machine to write 
out a protocol something like the fo-llowlngi 
(In blockl box) 

(In blocks box) 

(In hlock3 box) 

(erase (In hlockl box)) 


(assert (above blockl PH 
(assert (on blockl table)} 
(erase (In i>iock2 bo*)) 
(assert (above block? PH 
(assert (oo blocks blockl)) 
(erase C1 n block? bo*}) 
(assert (above block? P}} 
(assert (on block? blocks)? 
ff Inf shed) 


If we did the same thing 
of three at the place 
protocol: 


afcaln only with two blocks 
(1 we would expect the 


T ns tead 
fol owl [re¬ 


do block!* box) 

(In block? box) 

(erase (In blocks box)) 
(assert (above blockb d)J 
(assert (on block!) table)) 
(erase (lo block? box)) 
(assert (above block? QH 
(assert (on block? blockk)) 
(fin I shed} 


We compute the following Image of the above protocols: 

Uhprog ($varl $var? Svar?) 

(conseauedt (tower at SvarlH 


(thcomJ ((not (erase (In $var2 box))) (f Ini shed) )) 
(assert (above SvarZ jvarl)) 

(assert (on SvarZ table)) 
label! (assign ($varS $var3) *var2) 

(thcond ((not (erase On (SvarS SvarZ) box)) 
(finished))) 

(assert (above ivar2 $varl)> 

(assert (on SvarZ tvarJ)) 

(ko label 1)) 

We can convert the above Imarre Into a function that builds 
towers by 1 nterhofatln.it the e-onroands necessary to carry out 
the state changes: 

(thproK (tvarl $var2 Svar3) 

(consequent (tower at Svarl)) 

(thcond ((not (erase (In SvarZ box)}) (finished))) 
(pickup $var2) 

(assert (shove Svar? $v.irl)) 

(mnve-to tvarl) 

(assert (on (var2 table)) 

(lower-arm-to*contoct) 

(release-cube) 

(check-scene Con SvarZ table)) 
labell (assign £$vart SvarS) $var?) 

(thcond f(not (erase (In EJvarl $v*rZ) box)) 
(finished))) 


(pickup $uar?.y 

(assert fabove $var? tvarU) 

(l»VB-to |var 1 > 

(assart (on Svar2 $var3)) 

(1 ower-arm'to-contact> 

(release-cuhe) 

(check-scene (on |var2 SvarlJ) 
( HO Tabel 1 )■) 


IMAGE 

Is an Important technique 

for 

functlonat 

abstract lop 

for a Variety 

of reasons. 

! MAG E 

I s 

Self 

APplIcabTe 

In the sense that 

given IMAGE, we 

can 

have 

the 


machine abstract tMAGE from fragmentary protocols of IMAGE. 
PLAmiER Is waH suited to the task of construct in* images 
since it permits small ml stakes to be made In the 
construct Ion without causing fatal errors. it Is useful to 
aU ™ dec la rat Ians to he Included with the sat of protocols 
to be analyzed, la the case of the factorial function. It 
Is very useful to know that In the set of protocols 
arithmetic U assumed to be dona base 8, Of course once an 
ImaJte has heen constructed St can used to build further 
images* Thus IMAGE shows one way In which previous results 
can be Incorporated to build uo more complicated functions. 
The protocol given above ivhose functional abstraction 
happens to be the factorial function Is a good exampin of 
how It can be very misleading to say that commit ers ran Ho 
only what they are precisely told how to do. 


